* bases abiertas :
* teoria
        parameter condicion
        nr = recno()
        set console off
        set print on
        conta = 999
        go top
        do while .not. eof()
           if conta >= 3
              eject
              ? '-------------------------------------------------------------------------'
              conta = 0
           endif
           if &condicion
              ?
              ? space(5),substr(ENUNCIADO,1,63)
              ? space(5),substr(ENUNCIADO,64,63)
              ? space(5),substr(ENUNCIADO,127,63)
              ? space(5),substr(ENUNCIADO,189,63)
              ?
              ? space(5),'A)',substr(RESPUESTA,1,60)
              ? space(5),'  ',substr(RESPUESTA,61,60)
              ?
              ? space(5),'B)',substr(R2,1,60)
              ? space(5),'  ',substr(R2,61,60)
              ?
              ? space(5),'C)',substr(R3,1,60)
              ? space(5),'  ',substr(R3,61,60)
              ?
              ? space(5),'D)',substr(R4,1,60)
              ? space(5),'  ',substr(R4,61,60)
              ?
              ? '-------------------------------------------------------------------------'
              conta = conta + 1
           endif
           skip
        enddo
        set print off
        set console on
        goto nr
